home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 1 / The Arsenal Files (Arsenal Computer).ISO / telecom / voixel10.lha / VOIXEL / VOIXELVI.REX < prev    next >
OS/2 REXX Batch file  |  1993-12-22  |  1KB  |  64 lines
  1. /* Script To View GPFax-FAX.  VoiXEL V1.00 */
  2. /* ADDRESS VOIXELPORT */
  3.  
  4. options results                 /* Gets info back from Term              */
  5. parse arg file pad          /* Gets the AmigaDOS argument for the PW */
  6.  
  7. signal on halt
  8. signal on syntax
  9. signal on break_c
  10.  
  11. options failat 50
  12.  
  13.  
  14. if file = '' then do
  15.    say "No FAX-file supplied!"
  16.    say "Exiting.."
  17.    exit
  18. end
  19.  
  20.  
  21. ADDRESS COMMAND "VoiXEL:VoiXELWaitForPort -q REXX_GPFAX"
  22.  
  23. if rc>=5 then
  24.     do
  25.         ADDRESS COMMAND "run >nil: <nil: GPFax:GPFax -z -W -NP -Q"
  26.         ADDRESS COMMAND "VoiXEL:VoiXELWaitForPort REXX_GPFAX"
  27.         if rc>0 then
  28.             do
  29.                 exit
  30.             end
  31.         ADDRESS rexx_gpfax viewfax file
  32.         ADDRESS rexx_gpfax quitfax
  33.     end
  34. else
  35.     do
  36.         ADDRESS rexx_gpfax viewfax file
  37.     end
  38.  
  39. exit
  40.  
  41.  
  42.  
  43. error:
  44.     call Debug("Error" rc "at line" sigl)
  45.     return rc
  46.  
  47. break_c:
  48. halt:
  49.     call Debug("CTRL_C at line" sigl)
  50.     exit 20
  51.  
  52. syntax:
  53.     call Debug("Syntax error" rc "at line" sigl)
  54.     return rc
  55.  
  56.  
  57. Debug: procedure
  58.     parse arg info
  59.  
  60.     firstLine = sourceline(1)
  61.     parse var firstLine '/*' title '*/'
  62.     say title ':' info
  63.     return
  64.